home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 316 / libsrc / getwd.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-10-20  |  696 b   |  39 lines
  1. /*
  2.  *        Cross Development System for Atari ST 
  3.  *     Copyright (c) 1988, Memorial University of Newfoundland
  4.  *
  5.  * $Header: getwd.c,v 1.1 88/01/29 17:29:47 m68k Exp $
  6.  *
  7.  * $Log:    getwd.c,v $
  8.  * Revision 1.1  88/01/29  17:29:47  m68k
  9.  * Initial revision
  10.  *
  11.  * jrd 1.2
  12.  *   initial ver was all fucked.  re-wrote.
  13.  * 
  14.  */
  15. #include    <osbind.h>
  16. #include    <string.h>
  17. #include    <param.h>
  18.  
  19. char    *
  20. getwd(buf)
  21.     char    *buf;
  22. {
  23.     extern    char    *sys_error();
  24.  
  25.     int        rval;
  26.     int        drv;
  27.  
  28.     drv = Dgetdrv();
  29.     if ((rval = Dgetpath(buf + 2, drv + 1)) < 0)
  30.         {
  31.         (void) strncpy(buf, sys_error(rval), MAXPATHLEN);
  32.         return (char *) 0;
  33.         }
  34.     *buf = drv + 'A';
  35.     buf[1] = ':';
  36.  
  37.     return buf;
  38. }
  39.